Delphi 2.0 - Programmer's Utilities Power Pack/Delphi 2.0 Programmer's Utilities Power Pack.iso/m_to_r/picklist/testpick.dfm/testpick.txt

Text File | 1996-09-15 | 5.0 KB | 212 lines

object Form1: TForm1
  Left = 197
  Top = 98
  Width = 480
  Height = 344
  ActiveControl = TestLB
  Caption = 'Extended ListBox Test'
  Font.Color = clBlack
  Font.Height = -11
  Font.Name = 'MS Sans Serif'
  Font.Style = []
  PixelsPerInch = 96
  OnCreate = FormCreate
  TextHeight = 13
  object GroupBox1: TGroupBox
    Left = 20
    Top = 12
    Width = 345
    Height = 125
    Caption = 'Several different Listbox styles available'
    TabOrder = 0
    object Label1: TLabel
      Left = 168
      Top = 24
      Width = 63
      Height = 13
      Caption = 'Current Style:'
    end
    object Label4: TLabel
      Left = 180
      Top = 84
      Width = 44
      Height = 13
      Caption = '&Font Size'
    end
    object TestLB: TPickList
      Left = 8
      Top = 20
      Width = 141
      Height = 93
      Hint = 'Standard Windows Listbox'
      ExtendedSelect = False
      Font.Color = clBlack
      Font.Height = -12
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 13
      MultiSelect = True
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      UseTabStops = False
      SelectedStyle = psStandard
      TabStops = '8;16;32'
    end
    object Panel1: TPanel
      Left = 168
      Top = 44
      Width = 69
      Height = 21
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 1
    end
    object Button1: TButton
      Left = 248
      Top = 38
      Width = 81
      Height = 29
      Caption = 'Change &Style'
      TabOrder = 2
      OnClick = Button1Click
    end
    object SpinEdit1: TSpinEdit
      Left = 236
      Top = 80
      Width = 53
      Height = 22
      EditorEnabled = False
      MaxValue = 24
      MinValue = 7
      TabOrder = 3
      Value = 8
      OnChange = SpinEdit1Change
    end
  end
  object GroupBox2: TGroupBox
    Left = 20
    Top = 152
    Width = 169
    Height = 153
    Caption = 'Fire "OnChange" event'
    TabOrder = 1
    object Label2: TLabel
      Left = 18
      Top = 108
      Width = 60
      Height = 13
      Caption = 'Current Item:'
    end
    object PickList1: TPickList
      Left = 12
      Top = 24
      Width = 149
      Height = 73
      Hint = 'This listbox recognizes the "OnChange" method'
      ItemHeight = 13
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      SelectedStyle = psStandard
      TabStops = '18'
      OnChange = PickList1Change
    end
    object Panel2: TPanel
      Left = 16
      Top = 124
      Width = 141
      Height = 21
      Alignment = taLeftJustify
      BevelInner = bvLowered
      BevelOuter = bvNone
      TabOrder = 1
    end
  end
  object GroupBox3: TGroupBox
    Left = 216
    Top = 152
    Width = 233
    Height = 153
    Caption = 'View tab settings at design time!'
    TabOrder = 2
    object PickList2: TPickList
      Left = 8
      Top = 20
      Width = 217
      Height = 89
      Hint = 'Press "Select All" or "Select None"'
      Ctl3D = True
      ExtendedSelect = False
      Font.Color = clMaroon
      Font.Height = -11
      Font.Name = 'MS Sans Serif'
      Font.Style = []
      ItemHeight = 14
      Items.Strings = (
        'TESTLB.ZIP'#9'Demo of listbox'
        'PICKLIST.ZIP'#9'Enhanced listbox'
        'DELPHI.EXE'#9'RAD design tool')
      MultiSelect = True
      ParentCtl3D = False
      ParentFont = False
      ParentShowHint = False
      ShowHint = True
      TabOrder = 0
      TabStops = '20'
    end
    object Button2: TButton
      Left = 20
      Top = 116
      Width = 89
      Height = 29
      Caption = 'Select &All'
      TabOrder = 1
      OnClick = Button2Click
    end
    object Button3: TButton
      Left = 128
      Top = 116
      Width = 89
      Height = 29
      Caption = 'Select &None'
      TabOrder = 2
      OnClick = Button3Click
    end
  end
  object BitBtn1: TBitBtn
    Left = 376
    Top = 80
    Width = 65
    Height = 33
    TabOrder = 4
    OnClick = BitBtn1Click
    Kind = bkClose
  end
  object BitBtn2: TBitBtn
    Left = 376
    Top = 40
    Width = 65
    Height = 33
    Hint = 'Click here for Owner Draw demo'
    Caption = '&More'
    TabOrder = 3
    OnClick = BitBtn2Click
    Glyph.Data = {
      76010000424D7601000000000000760000002800000020000000100000000100
      04000000000000010000130B0000130B00000000000000000000000000000000
      800000800000008080008000000080008000808000007F7F7F00BFBFBF000000
      FF0000FF000000FFFF00FF000000FF00FF00FFFF0000FFFFFF00333333000000
      000333FFF3777777777F3000330FFFFFFF033777FF7F3FF3FF7F07B7030F00F0
      0F0377777F7F7737737F0BBB030FFFFFFF0377777F7F3FFFF37F07B7030F0000
      FF037777737F7777337F3000330FFFFFFF033777337F3FF3FF7F3333330F00F0
      00033333337F7737777F3333330FFFF0FF033FFFFF7F3FF7F3730000030F08F0
      F03377777F7F7737F7330999030FFFF0033377777F7FFFF77333099903000000
      333377777F7777773333099903333333333377777F33FFFFFFF3000003300000
      00337777733777777733333333330CCC033333333333777773333333333330C0
      3333333333333777333333333333330333333333333333733333}
    NumGlyphs = 2
  end
end